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ETRUSK 

Popolo misterioso e dalle oscure origini, gli 
Etruschi usavano costruire tombe e cunicoli 
sotterranei. Niente di meglio per ambientare 
un ingarbugliato adventure alla ricerca di un 
tesoro, anzi della chiave di un tesoro. 
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Gli etruschi sono uno dei 
popoli più misteriosi della 
storia. Certamente il più mi- 
sterioso tra quanti passaro- 
no o si insediarono sul terri- 
torio della nostra penisola. 
Niente di meglio dunque, 
nell’anno a loro dedicato, 
che ambientare un adventu- 
re, cioè una misteriosa av- 
ventura testuale, proprio 
tra le mura diroccate di una 
antichissima città etrusca e 
tra quelle mura, le tombe, 
gli spiazzi erbosi e strava- 
ganti personaggi, nasconde- 
re un tesoro. Anzi, meglio, la 
chiave di un tesoro che è 
meno ingombrante e si na- 


sconde con maggiore faci- 
lità. 

Questo infatti è il tema di E- 
trusk, il primo adventure in 
italiano (c’è anche un po’ di 
etrusco però) che inaugura 
una nuova serie dei nostri 
programmi Jackson soft su 
cassetta. La chiave è stata 
nascosta, manco a dirlo, da 
uno stravagante e un po’ di- 
spettoso etruscologo che, 
trovandosi sul luogo di una 
delle città più importanti e 
interessanti della civiltà e- 
trusca, Veio, ha ben pensato 
di tirarci un colpo barbino. 
Anche perché, misteriosi co- 
me erano, gli etruschi han- 


no ovviamente lasciato a po- 
polare le loro città abban- 
donate un impressionante 
numero di personaggi non 
precisamente rassicuranti. 
Fantasmi, lupi, spiriti mali- 
gni, antiche divinità, carabi- 
nieri, camminano avanti e 
indietro sul territorio di 
Veio continuando ad infasti- 
dire i turisti ed i cercatori 
del tesoro. Ma procediamo 
con ordine nella nostra 
spiegazione. 
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Lo scopo del gioco 

Compito del novello avven- 
turiero dunque è quello di 
raccogliere una minuscola 
chiavetta che ha però il pre- 
gio di aprire ima cassetta di 
sicurezza depositata in una 
banca che conoscete, natu- 
ralmente in Svizzera. 
Occorre prima di tutto tro- 
vare la chiave e in secondo 
luogo scoprire il numero 


della cassetta. 

Anche se a dire il vero non è 
detto che si debba seguire 
per forza questo itinerario: 
si può infatti scoprire prima 
il numero della cassetta e 
solo in un secondo tempo 
trovare la chiave. Comunque 
ciascuno faccia quel che gli 
pare, tenendo presente che 
per la risoluzione del gioco 
occorrono entrambi gli ele- 
menti. 

Quando dove e 
come 

Come in tutte le cose un po’ 


misteriose, anche il nostro 
gioco ha bisogno di un po’ di 
atmosfera. 

Infatti voi dovete iniziare la 
vostra ricerca il 15 agosto 
1986 avendo a disposizione 
soltanto cinque ore, allo sca- 
dere delle quali siete irrime- 
diabilmente scacciati dalla 
zona. Il tempo scorre duran- 
te la vostra ricerca e per 
quanto imbranati si possa 
essere in cinque ore si do- 
vrebbe trovare praticamen- 
te tutto quello che c’è, ma ci 
sono due inconvenienti. 

In primo luogo ogni tanto 
capita di picchiare delle zuc- 
cate contro le pareti o peg- 
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gio di essere tramortiti dal 
bastone di qualche irascibile 
divinità etnisca disturbata 
dal nostro frugare tra cioto- 
li e tombe e di restare di 
conseguenza addormentati e 
fuori dal gioco per una inte- 
ra ora. 

In secondo lugo buona parte 
della nostra ricerca si svol- 
ge sottoterra, tra tombe se- 
polte, cunicoli e strane grot- 
te nelle quali però, guarda 
caso (attenzione al suggeri- 
mento) si trovano nella 
maggior parte dei casi, og- 
getti utilissimi, anzi indi- 
spensabili per il buon prose- 
guimento della ricerca, per 


riuscire dunque a vedere 
qualcosa in questo dedalo di 
corridoi e di stanze occorre 
servirsi di una torcia elet- 
trica che ovviamente è ali- 
mentata da una pila e che 
come tutti gli aggeggi di 
quel tipo ha l’antipatica abi- 
tudine di scaricarsi. Altro 
fattore che determina quin- 
di la durata del gioco è 
l’energia della pila. Tenete 
presente che essa è piutto- 
sto limitata, ma ricordatevi 
anche che le pile servono 
soltanto dove c’è buio, e che, 
fortuna, la notte del 15 ago- 
sto è una notte di luna pie- 
na... 


Veio 

Veio, il cui nome latino fu 
Veii, sorgeva a pochi chilo- 
metri da Roma, circondata 
da un torrente e ben piazza- 
ta sopra un vasto contraf- 
forte di tufo. Il gioco è stato 
costruito tenendo ben pre- 
sente quella che è l’originale 
topografia della zona, con 
riferimenti espliciti ai no- 
mi, alle località e alla distri- 
buzione dei luoghi reali. 




Troviamo così il Portonac- 
cio, dove gli scavi degli ar- 
cheologi hanno portato alla 
luce un santuario nel qual 
pare si facevano cure con le 
acque, poi il Tempio, le Tom- 
be, le porte di entrata o di 
uscita dalla città posta sul 
colle: tutto corrisponde alla 
disposizione reale della an- 
tica città e non è detto che 
osservando la pianta che ri- 
produciamo, non troviate 
delle indicazioni per risolve- 
re più rapidamente il nostro 
gioco. 

Addirittura il realismo del 
nostro adventure si spinge 
fino al punto di riprodurre 
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esattamente la pianta della 
Tomba delle anatre e di quel- 
la detta Campana, aiutando 
gli idomiti esploratori nella 
rivoluzione del mistero. 


I comandi 

I comandi a disposizione so- 
no numerosi e consistono in 
comandi di “servizio", per 
conoscere l’inventario degli 
oggetti che possediamo, per 
esempio, o il tempo a nostra 
disposizione, o i comandi 
d’uso, per compiere delle a- 
zioni. 

Iniziamo da questi ultimi. 
Essi sono del tipo verbo-no- 
me, per esempio quindi, 
“prendo sasso” e non “pren- 
do il sasso”, ma neppure 
prendo e basta. 

I verbi più usati sono “pren- 
do”, “lascio”, “esamino”, ma 
nel corso del programma oc- 
correrà scoprire l’utilità di 
alcuni altri, indispensabili 
alla risoluzione di qualche 
situazione un po’ critica. At- 
tenzione a non scrivere i da- 
ti da inserire nel computer 
in maiuscolo o in maiusco- 
lo/minuscolo, perché il vo- 
stro Commodore è stato pro- 
grammato per ricevere i da- 
ti soltanto sotto forma di 
lettere minuscole. 

Esistono poi, come si è detto 
i comandi di “servizio". Essi 
sono: 

n: indica la direzione nord 
e: indica la direzione est 
s: indica la direzione sud 
o: indica la direzione ovest 
r: salva i dati su cassetta 
quando si vuole sospendere 


il gioco per ripresentarlo in 
un secondo tempo dal punte 
nel quale si era giunti, 
t: visualizza l’ora attuale e 
le eventuali penalità, 
a: visualizza l’alfabeto etru- 
sco per le decifrazioni. Capi- 
ta infatti sovente di incon- 
trare su bigliettini o diretta- 
mente sulle pareti dei cuni- 
coli che si stanno visitando, 
delle scritte in lingua etni- 
sca. Premendo a è possibile 
decifrarle e avere qualche 
indicazione in più. Anche se 
francamente, forse perché 
l’alfabeto etrusco non lo co- 
nosce davvero bene nessu- 
no, non è che le scritte siano 
molto utili. 

c: segnala lo stato di carica 
della pila che alimenta la 
torcia 

i: serve per fare l’inventario 
degli oggetti nascosti e pote- 
re abbandonare quelli che 
non servono più. Il gioco in- 
fatti non consente che voi 
possiate trasportare più di 
quattro oggetti alla volta. 

Il nostro consiglio per quel 
che riguarda questo partico- 
lare aspetto è quello di ab- 
bandonare un oggetto non 
appena lo si sia sfruttato. Se 
si raccoglie un bigliettino 
per esempio, leggetelo subi- 
to e poi mollatelo, 
f: serve per finire il gioco, 
corrisponde, in etrusco, al 
più casareccio, và al diavolo, 
d: è uno dei comandi più uti- 
li e divertenti, perché serve 
per ripescare da un limitato 
data base contenuto nel pro- 
gramma notizie storiche e 
archeologiche sui personag- 
gi o i luoghi che si incontra- 


no. La sintassi del comando 
è del tipo d tomba delle ana- 
tre. 


Consigli 

Durante tutto il nostro pere- 
grinare per gli oscuri mean- 
dri di Veio saremo accompa- 
gnati da uno spirito inquie- 
to. È Larthia, una misterio- 
sa e, pare, bellissima fan- 
ciulla etnisca che, commos- 
sa dalla vostra fatica, qual- 
che volta vi aiuterà con dei 
consigli che compariranno 
scritti in azzurro sullo 
schermo. Naturalmente es- 
sendo un fantasma e per di 
più etrusco, ha una certa 
tendenza a parlare in ma- 
niera oscura, per non dire 
sibillina. Occorre quindi in- 
terpretare con una certa 
fantasia tutto quello che 
dice. 

Secondo consiglio: gli ogget- 
ti da raccogliere non sono 
moltissimi e le cose da toc- 
care ancora meno: occhio 
dunque a non toccare dove 
non si può e a non restare 
addormentati per una bella 
oretta. Terzo consiglio, che 
diamo comunque soltanto ai 
novizi, sperando di farci 
perdonare dai giocatori più 
esperti: utilizzate carta e 
penna, segnandovi con ordi- 
ne ogni comando che impar- 
tite al computer e le relative 
reazioni. Solo così sarete in 
grado di raggiungere l’ago- 
gnata chiavetta che apre le 
porte del paradiso, anzi del- 
la cassetta di sicurezza. 
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Guida 

all’input C 64 


Norme per la 
battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift" e “CBM", sono codifi- 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori- 
cino è codificato con >SH 
S <. Il numero dentro le pa- 
rentesi indica le volte che il 
tasto va premuto. 

IO 


TABELLA DI CONVERSIONE 


(HOME) HOME 

{ CLR } P-ULIZIA SCHERMO 

(CUR.SU1 CURSORE IN ALTO 

{CUR.GIUJ CURSORE IN BASSO 

{CUR.DES} CURSORE A DESTRA 

( CUR . SIN } CURSORE A SINISTRA 

{SPC1 SPAZIO 

{ RVS ON) REVERSE ON 

{ R VS OFF) REVERSE OFF 

{INSTI INSERT 

{FI } * .‘TASTO .FI 

{ F2 1 TASTO F2 

{ F3 } TASTO F3 

{ F *• } TASTO FU 

{ F5 } TASTO F5 

C F 6 > TASTO F6- 

{ F7 } TASTO F7 

{ F8 } TASTO F8 

(BLACK) COL. NERO (CTRL+1) 

(WHITE) .' COL. BIANCO (CTRL+2) 

(RED) COL. ROSSO (CTRL+3) 

{ C YAN } COL. CIANO (CTRL+4) 

(PURPLE) COL. PORPORA (CTRL + 5) 

{GREEN) COL. VERDE (CTRL*6) 

(BLUE) COL. BLU (CTRL*7) 

{YELLOW} COL. GIALLO (CTRL + 8) 

{ORANGE} COL. ARANCIO (CBM-1) 

{BROUN} COL. MARRONE (CBM+2) 

{LT.RED} COL. ROSSO CHIARO (CBM«-3) 

(GRAY1) COL. GRIGIO .1 (CBM + «) 

{ GRA Y2 } COL. GRIGIO 2 (CBM*5) 

{LT. GREEN) COL. VERDE CHIARO (CBM + 6) 

UT. BLUE) COL. BLU CHIARO (CBM*7) 

{CRAY31 COL. GRIGIO 3 (CBM*8) 




SHUTTLE 


La versione Commodore C64 
di “labirinto rotante" è stata 
ribattezzata “Shuttle” poi- 
ché ha come soggetto una 
navetta spaziale. 

“Shuttle” funziona supper- 
giù come le altre versioni. 
La differenza principale è 
data dall'aggiunta di una 
quantità chiamata GAS. Ini- 
ziate con 2000 unità di car- 
burante che consumate ad 
un ritmo di 60 unità al se- 
condo, sia che lo Shuttle si 
muova o no. Se toccate un 
muro o dei Predoni perdete 
100 unità ogni sessantesi- 
mo di secondo. Quando avete 
esaurito il carburante, il 
gioco ha termine. Fortuna- 
tamente, potete rifornire i 
vostri serbatoi raggiungen- 
do l’estremità destra dello 
schermo. 

Se volete interrompere il 
gioco per un attimo, tenete 
premuto il tasto SHIFT. Se 
volete interromperlo più a 
lungo, usate SHIFT LOOK. 
Potete aumentare la velocità 
di movimento dei muri te- 
nendo premuto il pulsante 
di sparo del joystick. Questo 
non farà apparire i varchi 
più rapidamente, ma au- 
menterà la velocità di scor- 


rimento dei varchi già pre- 
senti. Lo svantaggio consi- 
ste nel fatto che mentre il 
pulsante è premuto, il vo- 
stro carburante viene con- 
sumato a velocità doppia. 

La programmazione di 
“Shuttle” ha messo in luce 
dei problemi interessanti. Il 
primo consiste nei “lampi" 
piccole chiazze di neve — 
che appaiono sullo schermo. 
Normalmente questo non 
provoca problemi, ma se 
cercate di usare il registro 
di controllo delle collisioni 
fra SPRITE e sfondo del chip 
VIC-II, vi accorgerete che 
gli SPRITE collidono con i 
“lampi”! 

Il significato di tutto ciò 
consiste nel fatto che occa- 
sionalmente, senza alcuna 
ragione apparente, lo Shut- 
tle colliderà e voi perderete 
100 unità di carburante. Dal 
momento che spostando il 
set di caratteri si eliminano 
i lampi, il set suddetto è sta- 
to ricollocato in $3000. 

Un altro cavillo del C64 è 
rappresentato dal fatto che 
il chip VIC-II può guardare 
solo a 16K di memoria con- 
temporaneamente. Quando 
accendete il vostro calcola- 


tore, il chip vede il primo 
blocco di 16K dalla locazio- 
ne $0000 alla locazione 
$3FFF. È stato deciso di la- 
sciare le cose in questo sta- 
to, per semplicità. Questo si- 
gnifica che i dati degli SPRI- 
TE, il set di caratteri ricollo- 
cato, e l’intero programma 
BASIC devono essere con- 
centrati in 16K. 

A causa di questa limitazio- 
ne nell’occupazione di me- 
moria, quando il linguaggio 
macchina crea un set di ca- 
ratteri alla locazione $3000, 
distrugge le istruzioni DA- 
TA nel programma. Fortu- 
natamente, le istruzioni DA- 
TA non sono ulteriormente 
richieste, essendo già state 
inserite in memoria tramite 
istruzioni POKE. 

Dal momento che il fatto di 
mandare il programma in 
esecuzione ne distrugge una 
parte, assicuratevi di averne 
registrato una copia prima 
di dare il RUN. 

Tratto da 

Super Commodore n. 3/’84 
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100 GOSUB30OO 
1 10 PRINTCHR$( 1 42) 

120 IF PEEK( 1 6378)01 6 THEN GOSUB 10000: 

GOSUB 50000 
130 V-1 3**1096:00-50 
140 POKE V + 1 6 , 0 
150 POKE V 39 , 1 : POKEV +40,1 
160 POKE V+0,CO:POKEV+4,CO-2:POKEV+5,221 
1 70' POKE V + 1 ,200 
180 POKE V» 2 , CO 
190 POKE V + 3 . 1 79 
200 POKE V ♦ 2 1 ,3 

210 POKE V+39, 1 : POKEV + 40, 1 :P0KEV+41 , 8 : PO 
KEV+42 , 1 

220 POKE 2040,245 

230 POKE 2041 ,246:P0KE2043.246 

240 POKE 2042,247 

250 FOR K-1 TO 500 : NEXT K : POKEV + 21 , 7 

260 GOSUB 2000 

270 1-200 

280 P-1 

290 Q-Q+ . 0 1 *P 

300 P-P+.1 : C-C ♦ 1 

310 X-X-Q 

320 IF PEEK ( 2042 ) -248 THEN POKE 2042,254 
: GOT03**0 

330 IF PEEK(2042)-254 THEN POKE 2042,248 
340 POKE V+1 ,I:P0KEV+3, 1-21 :P0KEV+5. 1+21 
350 P0KES+22,P2:P0KES+23,10R(16-P2/1 6)*1 
6 

360 P2-P2+P2/244 

370 IF C-60THEN POKEV + 23, 1 * 

380 IF C-20THEN POKEV + 23, 1 * 

390 IF C- 40 THEN POKEV+23 , 0 : POKE2042 , 248 
400 IF C<70 THEN 290 
410 POKE 2040,249 

420 Ì’OKE 2043,250:P0KEV+6,CO:POKEV+7,I:P 
OKEV+21 , 1 5 
430 Q-Q+ .01 »P 
440 P-P+.1 :C-C+1 :C2-C2+.6 
450 I-I-Q 

460 IF PEEK ( 2042 ) «2 48 THEN POKE 2042,254 
: G0T0480 

470 IF PEEK ( 2042 ) -254 THEN POKE 2042,248 
480 POKE V*1 ,1 :P0KEV*5, 1 + 21 
490 NR-I+C2*C2:NC-CO+C2*3 
500 POKE V+7,NR:POKEV+3,NR-21 :P0KEV+6,NC 
: POKEV+ 2 , NC 

510 IF C-83 THEN POKE 204 3 , 251 : POKE204 1 , 
2 53 

520 IF C-86 THEN POKE 2043,252 
530 IF C-89 THEN POKE V+21,5 


51(0 POKES* 22, P2: POKES* 23, 1 OR ( 1 6-P2/1 6)*1 
6 

550 P2-P2+P2/244 

560 IF I >25 THEN 430 

570 POKE S*4,128 

580 POKE V+5,1+21 

590 I-I-2:IFI>0 THEN580 

600 POKE V* 2 1 , 1 

610 FOR J-1 TO 2000 : NEXT 

620 PR INT" ( HOME } { 1 0 CUR . DES } { WHITE } { 2 SP 
C } ORB I T A RAGGIUNTA. . 

630 FOR 1-1 TO 1 000 : NEXT 

640 POKE 2040,244 

650 POKE V , 0 : POKE V + 1 ,117 

660 FOR 1-0 TO 3 *» 8 STEP2 

670 POKE V,I AND 255 : POKEV+1 6, 1/255 

680 NEXT 

690 FOR 1-0 TO 1 000 : NEXT 
700 GOTO 4000 

710 POKE 53281 ,12:P0KE53280,12:PRINT"(WH 
ITE}" 

720 END 
2000 S-54272 

2010 POKES*24,15+l6*32:POKES+23, 1*16*5 

2020 POKES+5 ■ 0 

2030 P0KES*6 , 1 6*15*1 5 

2040 POKES* 4,129 

2050 POKES* 1 , 1 1 

2060 P2-100: RETURN 

3000 POKE 53281 , 0 : P0KE53280 , 0 

3010 PRINT" { CLR } " 

3020 P R I N T " ( 5 CUR. GIU}" 

3040 T-12 

3050 PRINTTAB(T)"{LT.BLUE} (RVS ONHSH \} 
{2 SPC } { CUR . DES } {CUR. DES} {CUR. DES 
} (CUR. DES} ( CUR . DES } { 3 SPCHCUR.DE 
S } { 3 SPC} (CUR. DES} {3 CUR.DESHSH \ 
} { 2 SPC}" 

3060 PRINTTAB(T)" {RVS ON} 13 CUR. DES} {C 
UR.DES} {CUR. DES} {CUR. DES} 12 CUR. 
DES} {3 CUR. DES) {2 CUR. DES} {3 CUR 
.DES} " 

3070 PRINTT AB ( T ) " { CBM * } { RVS ON } { CBM *} 
{CUR. DES} {3 SPC } { CUR . DES } {CUR. DES} 
{2 CUR. DES} {3 CUR. DES} {2 CUR. DES 
} {3 CUR. DES} {2 SPC}" 

3080 PRINTTAB ( T ) " 1 RVS ON } { 2 CUR. DES} (CU 
R . DES } {CUR. DES} {CUR. DES} {CUR. DES 
} {2 CUR. DES} (3 CUR, DES} (2 CUR. DE 
S} {3 CUR. DES) " 

3090 PRINT TAB(T)" {RVS ON } ( 2 SPCHRVS OFF 
} { SH \ } {RVS ON ) { CUR . DES } {CUR. DES} 
{CUR. DES} {RVS OFF } { CBM » } { RVS ON } { 

RVS OFF } {SH \ } (RVS ON } { 2 CUR. DES} { 


3 CUR.DES) (2 CUR.DESHRVS OFF } { CBM 
*)(RVS ON } ( 2 SPC) (CUR.DESJ { RVS OFF 
} { CBM * I {RVS ON ){ 2 SPC)" 

3100 PRINT 

3110 PRINTTAB(T)" (CYAN ) (RVS ON ) (RVS OF 
F ) ( 2 SPC } ( RVS ON) (RVS OFF) (RVS ON 
) (RVS OFF ) ( 5 SPC )( RVS ON)(SH \)(2 
SPCMRVS OFF) (RVS ON) (RVS OFF) (R 
VS ON) (RVS OFF) (RVS ON)(SH \) (CB 
M * )( RVS OFF) (RVS ON)(SH \) (CBM « 
HRVS OFF)" 

3120 PRINTTAB(T)" (RVS ON ) (RVS 0FF){2 S 
PC ) (RVS ON) (CBM ») (RVS 0FF)(5 SPC 
) ( RVS ON) (RVS OFF ) (3 SPC)(RVS ON ) 
(RVS OFF) (RVS ON) (RVS OFF) (RVS 0 
N) (RVS OFF) (RVS ON ) (RVS OFF) (RV 
S ON) (RVS OFF) (RVS ON ) (RVS OFF)" 
3130 PRINTTAB(T)" (RVS ON ) (RVS 0FF)(2 S 

PC ) (RVS ON) (RVS OFF ) ( CBM » ) { R VS ON 
} (RVS OFF ) ( 5 SPCHRVS ON ) I 2 SPC ) ( R 
VS OFF ) ( 2 SPCHRVS ON) (RVS OFF) (R 
VS ON) (RVS OFF) (RVS ON ) (RVS OFF) 
(3 SPC ) { R V S ON ) ( 3 SPC ) ( RVS OFF)" 

31 «0 PRI NTTAB ( T ) " (RVS ON ) (RVS OFF ) (2 S 
PC ) (RVS ON) (RVS OFF) (RVS ON) (RVS 
OFF ) ( 5 SPC ) (RVS ON) (RVS OFF ) { 3 SP 
C ) ( R VS ON) (RVS OFF) (RVS ON) (RVS 
OFF) (RVS ON) (RVS OFF ) { CBM CHRVS 

ON) (RVS OFF) (RVS ON) (RVS OFF) (R 
VS ON) (RVS OFF)" 

3150 PR I NTTAB ( T ) " (RVS ON) (RVS 0FF)(2 S 
PC } { RVS ON) (RVS OFF) (RVS ON ) (RVS 
OFF ) ( 5 SPCHRVS ON) (RVS 0FFJ13 SP 
C ) (CBM * } (RVS ON) (RVS OFF ) ( SH \) ( 

CBM * ) ( RVS ON) (RVS OFF ) ( SH \) (RVS 
ON) (RVS OFF) (RVS ON ) (RVS OFF)" 
3999 RETURN 

«000 v-1 3*«096:POKE5328l , 0 : P0KE53280 , 0 
«010 POKE V ♦ 2 1 ,0:P0KEV*23>0 
«020 GOSUB 2000 : POKE S* 5 , 7 * 1 6 : POKES + 6 , 2 « 
9 : POKES + « ,128 

«030 POKE V*«0,03:POKEV*«1 , 07 : POKE V ♦ « 2 , 0 
3: POKEV*«3.07 : POKE V ♦ « « , 0 3 : POKE V ♦ « 5 , 
07 

«0«0 POKE V*«6,03:FOR 1-1 TO 6, : POKE V* 
2*1. (36*«0*I)AND255:NEXT 
«050 POKE V* 1 6 , 6« : POKE 20« 0 , 2« « : POKE V , 30 
: POKEV* 1 ,1«8:P0KE V*21,255 
«060 FOR I - 20 « 1 TO 20 « 7 : POKE I . 255 : NEXT 
«070 PRINT"(CYAN) ( CLR }G A S" 

«080 PRINT"02000" 

«090 PRI NT"PUNTI : " 

«100 PRINT"00000" 

«110 P(0)-1029:P(«)-199«:P(1)-1039:P(5)- 
200«:P(2)-10«9:P(6)-201«:P(3)-1059 


4120 S>YS 49152 

4130 POKE P ( 0 ) , 227 

4140 IF PEEK(2)-255 THEN 20000 

4150 IF PEEK ( 653 ) “ 1 THEN 4150 

4160 IF RND(1 )>.05 THEN 4140 

4170 IF RN D ( 1 ) > . 5 THEN 4200 

4180 P-RNDO )«5:IF PEEK ( P ( P ) ) < > 1 60 THEN 


4190 POKE P < P ) ,227:G0T041 40 

4200 P«RND(1 }»3 + 4: IF PEE K ( P ( P ) ) < > 1 60 THE 
N 4200 

4210 POKE P(P) ,228:00T041 40 

5000 FB-(J AND 16) 

5010 IFFL-OAND FB-0 THEN POKE 2,0:P0KE 4 
9290 i 2 : GOTO 5030 

5020 IF FL-16 AND FB-16 THEN POKE 2,0:P0 
KE 49290,3 

5030 FL-FB 

5040 IF (J AND 8)«0 AND DX<4 THEN DX-DX+ 
1 ; C0T05060 

5050 IF (J AND 4)-0 AND DX>-4 THEN DX-DX 
-1 

5060 IF (J AND 1 ) -0 AND DY>-4 THEN DY = DY 
-1 : GOTO5O80 

5070 IF (J AND 2)-0 AND DY<4 THEN DY-DY* 


5080 

5085 

5090 

5100 
5110 
5120 
51 30 
10000 
1 0005 


10010 
1 0020 
1 0030 
1 0040 
10050 
10060 
1 0070 
10080 
1 0090 
10100 
10110 
10120 
101 30 
101 40 
10150 
10160 
10170 


X-PEEK( V)*PEEK(V+1 6)»256 
Y“PEEK( V*1 ) 

NX«X*DX:IF NX>21 AND NX<358 THEN PO 

KE V,NXAND255:POKEV*l6,NX/256 

NY-Y+DY : IF NY<20 THEN NY-21 0 

IF N Y >2 1 0 THEN NY-20 

POKE V* 1 , N Y 

RETURN 

I«1 5 6 1 6 :TI$-" 000000" 

PRINT"(HOME) (WHITE) (12 CUR. DESI PRO 
NTO IN"LEFT$(STR$( 1 40-INT(TI/60) ) , 
4)'* SECONDI " 

READ A : I F A-256 THEN RETURN 
POKE I , A: I-I + 1 : GOTO 10005 
DATA 0,0, 0,0,0, 0,0 
DATA 0,0,24,0,0,28,0 
DATA 0,31 ,0,0,31 ,255,240 
DATA 31,255,8,20,255,254,31 
DATA 127.255,30,63,254,24,0 
DATA 0,0, 0.0, 0,0,0 
DATA 0,0, 0,0, 0,0,0 
DATA 0,0, 0,0, 0,0,0 
DATA 0,0, 0,0, 0,0,0 
DATA 0,0,71 ,192,0,247,192 
DATA 0,247,192,1,255.192,2 
DATA 255,192,2,255,192,2,247 
DATA 192,2,247.192,3,247.192 
DATA 3.247,192,3,247,192,3 
DATA 247.192,3,247,192.3.247 


10180 DATA 
10190 DATA 
10200 DATA 
10210 DATA 
10220 DATA 
10230 DATA 
10290 DATA 
10250 DATA 
10260 DATA 
10270 DATA 
10280 DATA 
10290 DATA 
10300 DATA 
10310 DATA 
10320 DATA 
10330 DATA 
103*10 DATA 
10350 DATA 
10360 DATA 
10370 DATA 
10380 DATA 
10390 DATA 
10900 DATA 
10910 DATA 
10920 DATA 
10930 DATA 
10990 DATA 
10950 DATA 
10960 DATA 
10970 DATA 
10980 DATA 
10990 DATA 
10500 DATA 
10510 DATA 
10520 DATA 
10530 DATA 
10590 DATA 
10550 DATA 
10560 DATA 
10570 DATA 
10580 DATA 
10590 DATA 
10600 DATA 
10610 DATA 
10620 DATA 
10630 DATA 
10690 DATA 
10650 DATA 
10660 DATA 
10670 DATA 
10680 DATA 
10690 DATA 
10700 DATA 
10710 DATA 


192.3.255,192,3.255,192 
7,103,192,7,103.192,15 
229,1 28,31 ,1 1 9,1 28,31 ,290 


0 , 0 , 0 , 0 , 0 , 0,0 

0,0,3,128,0,15,192 

0,15,192,0,15,192,0 

15.192.0. 1 .252.0.1 

1 16.0. 1 .212.0.0.88 


0,0,0,0,1,252,0 

1.252.0. 1.252.0.1 

259 .0. 7.298.0.6.299 
0,2,251,0,6,122,0 

3.292.0. 0.298.0.0 

298.0. 0.60.0.0.120 
0,0,56,0,0,56,0 
0,96,0,0,96,0,0 

8 . 0 . 0 . 32 . 0 . 0.0 
0,0,0,0,0,0,69 
0,0,290,0,0,290,0 

1 .290.0. 2.290.0.2 

290.0. 2.290.0.2.290 
0,3,290,0,3,290,0 

3.290.0. 3.290.0.3 

290.0. 3.290.0.3.290 
0,3,290,0,7,96,0 

7.96.0. 15.229.0.31 

112.0. 31 .290.0.0.0 

7.192.0. 7.192.0.7 

192.0. 7.192.0.7.192 
0,7,192,0,7,192,0 

7.192.0. 7.192.0.7 

192.0. 7.192.0.7.192 
0,7,192,0,7,192,0 

7.192.0. 7.192.0.7 

192.0. 7.192.0.7.192 
0,3,128,0,0,0,0 
0,2,0,0,7,192,0 

7.192.0. 6.192.0.9 

192.0. 3.69.0.6.192 
0,1 ,192,0,9,0,0 

7.192.0. 7.128.0.7 


1 0720 
1 0730 
1 07*40 
10750 
10760 
10770 
10780 
10790 
1 0800 
10810 
10820 
1 0830 
1 08*4 0 
1 0850 
1 0860 
1 0870 
10880 
10890 
10900 
10910 
10920 
10930 
109*10 
10950 
1 0960 
1 0970 
10980 
1 0990 
1 1 000 
11010 
1 1020 
1 1030 
1 1 0140 
11050 
1 1060 
1 1070 
1 1080 
1 1 090 
11100 
11110 
11120 
20000 

20010 

20020 

20030 

200*10 

20050 

20060 

20070 

20080 


DATA 64,0,7,192,0,1 ,192 

DATA 0,5,192,0,6,64,0 

DATA 7,192,0,7,192,0.0 

DATA 128,0,3,128,0,0,0 

DATA 0,0, 2, 0,0,1 ,0 

DATA 0,6,64,0,0,64,0 

DATA 4,128,0,3,64,0,6 

DATA 0,0,1 ,0,0, 0,0 

DATA 0,0,0,0,0,128,0 

DATA 1,64,0,6,0,0,1 

DATA 0,0,5,0,0,6,64 

DATA 0,0, 0,0, 4, 0,0 

DATA 0,128,0,3,128,0,0 

DATA 0,0, 0,0, 0,0,0 

DATA 0,0, 0.0, 0,0,0 

DATA 0.0, 0,0, 0,0,0 

DATA 0,0, 0,0, 0,0,0 

DATA 0.0. 0,0, 0,0,0 

DATA 0,0, 0,0, 0,0,0 

DATA 0,0,0, 0,0, 0,0 

QATA 0,0,1 ,128,0,6,128 

DATA 0,2,64,0,5,192,0 

DATA 3,128,0,1 ,252,0,1 

DATA 252,0, 1 ,236,0,1 ,1 26 

DATA 0,3,248,0,2,120,0 

DATA 0,248,0,0,120,0,0 

DATA 112,0,0,120,0,0,120 

DATA 0,0,48,0,0,48,0 

DATA 0,0, 0,0, 0,0,0 

DATA 0,0, 0,0, 0,0,0 

DATA 0,0, 0,0, 0,0,0 

DATA 0,0, 0,0, 0,0,0 

DATA 0,16,0,0,16,0,16 

DATA 56,16,10,16,160,4,16 

DATA 64,10,124,160,1.255,0 

DATA 1,255,0,11,255,144,127 

DATA 255,252,11.255,144,1,255 

DATA 0,1 ,255,0, 10,124,160 

DATA 4,16,64,10,16,160,16 

DATA 56,16,0,16,0,0,16 

DATA 0,0,0,0,0,0,256 

SC *0 : FOR 1-0 TO 4 : SC-SC+ ( PEEK ( 1 1 4 8 

-I)-48)*10*I:NEXT I 

IF H<SC THEN H-SC 

POKE S+4,128 

POKE 1 3*4096+21 ,0 

FOR 1 = 1 TO 1 000 : NEXT I 

PRINT" {CLRJGAS TERMINATO. . . {CUR .Gl 

U } " 

PRINT"HAI TOTALIZZATO { WHITE } "SC " { 
C 7 A N JPUNTI" 

PR I NT" RECOR D{ WHITE ) "H" {CYAN}" 
PRINT" (3 CUR . GIU } C 1 1 SPC } ANCORA? ( 
S/N)" 


20090 

20100 

20110 

20120 

20130 
201 40 
50000 
50010 


5001 5 


50020 
50030 
50040 
50050 
50060 
50070 
50080 
50090 
50100 
501 10 
50120 
50130 
501 40 
50150 
50160 
50170 
50180 
50190 
50200 
50210 
50220 
50230 
50240 
50250 
50260 
50270 
50280 
50290 
50300 
5031 0 
50320 
50330 
50340 
50350 
50360 
50370 
50380 
50390 


PRINT" {CUR. GIU} OPPURE PREMI IL, PU 
LSANTE PER RIPARTIRE" 

GETA$ 

IF A$-"N"THEN END 

IF ( PEEK ( 56320 ) AND l6)-0 THEN GOT 
04000 

IF A$<>" Y" THEN 20100 
G0T04000 

1-491 52:TI$-"000000" 

PRINT" (HOME HWH ITE} 112 CUR .DESJPRO 
NTO IN"LEFT$(STR$(97-INT(TI/60) ) ,4 
)« SECONDI " 

READ A : I F A-256 THEN PR I NT" { HOME } ( 
10 CUR . DES } { 2 1 SPCHSH SPC}":RETUR 
N 

IF A--1 THEN 1-49920 : GOTO 50010 
IF A--2 THEN 1-50688 : GOTO 50010 
POKE I , A : I - 1 ♦ 1 : GOTO 50010 
DATA 120,169,0,141,20,3,169 
DATA 195,141 ,21 ,3.88,173.14 
DATA 220,41,254,141,14,220,165 
DATA 1 .41 ,251 ,133.1 .160.0 
DATA 185,0,208,153.0.48,185 
DATA 0,50,153.0,50,185.0 
DATA 209.153,0,49,185,0,211 
DATA 153,0,51.185,0,212,153 
DATA 0,52,185,0,213.153.0 
DATA 53.185,0,214,153.0,54 
DATA 185,0,215,153.0,55.169 
DATA 15,141,156,200,200,208,200 
DATA 165,1.9.4,133,1,173 
DATA 1 4,220,9.1 .1 41 , 1 4,220 
DATA 169.28,141,24,208,169,15 
DATA 141,156.200,169,255,141,15 
DATA 212,169.128,141,18,212,169 
DATA 0,1 33.2,1 41 ,224,207,1 41 
DATA 255,207,141,254,207,141,253 
DATA 207,141,252,207,141,249,207 
DATA 160,6,169,20,153,0,207 
DATA 169.0,153,16,207,136,208 
DATA 243,169,251,141,251,207,160 
DATA 0,169,4,133.252,132,251 
DATA 169.216,133,254,132,253,169 
DATA 160,160,5,145,251.160,10 
DATA 145,251,160,15,145,251,160 
DATA 20,145,251.160,25,145,251 
DATA 160,30,145,251.160,35,145 
DATA 251.165,251.24,105,40,133 
DATA 251,144,2,230,252,201,232 
DATA 208,211,169,1,160,10,145 
DATA 253.169,4,160,5,145.253 
DATA 169,7,160,15.145,253.169 
DATA 14,160,20,145,253,169.8 


50*100 DATA 
50*110 DATA 
50*(20 DATA 
50*130 DATA 
50*140 DATA 
50450 DATA 
50460 DATA 
50470 DATA 
50480 DATA 
50490 DATA 
50500 DATA 
50510 DATA 
50520 DATA 
50530 DATA 
50540 DATA 
50550 DATA 
50560 DATA 
50570 DATA 
50580 DATA 
50590 DATA 
50600 DATA 
50610 DATA 
50620 DATA 
50630 DATA 
50640 DATA 
50650 DATA 
50660 DATA 
50670 DATA 
50680 DATA 
50690 DATA 
50700 DATA 
50710 DATA 
50720 DATA 
50730 DATA 
50740 DATA 
50750 DATA 
50760 DATA 
50770 DATA 
50780 DATA 
50790 DATA 
50800 DATA 
50810 DATA 
50820 DATA 
50830 DATA 
50840 DATA 
50850 DATA 
50860* DATA 
50870 DATA 
50880 DATA 
50890 DATA 
50900 DATA 
50910 DATA 
50920 DATA 
50930 DATA 


160,25,145,253,169,13,160 

30,145.253.169,3,160,35 

145.253.165.253.24.105.40 

133.253.144.2.230.254.201 
232.208,199,96,-1 
173.141 

2,201 ,1 ,208,3,76,49 
234,230,2,165,2,201 ,2 
240,3,76,49,234,169,0 

133.2.169.3.133.252.169 

216.133.251 .160.45.177.251 

32.79.195.160.55.177.251 

32.79.195.160.65.177.251 

32.79.195.160.75.177.251 
32,79,195,165,251 ,24,105 

40.133.251 .144.2.230.252 
201 ,192,208,213.76,0,198 
201 , 160,240,19,201 ,32,240 

37.1 62,1 ,232,221 . 174,1 95 
208,250,202.189,174,195,145 

251 .96.152.56.233.40.168 
177,251 ,201 ,32,240,1 ,96 

152.24.105.40.168.169.227 
1 45,251 ,96,165,252,201 ,3 

240.22.152.56.233.40.168 
1 77,251 ,201 ,1 60,240,1 ,96 

152.24.105.40.168.169.99 
145,251 ,96,152,24,105,120 

168.177.251.201. 100.240. 1 

96.152.56.233.120.168.169 
99,145,251 ,96,160,228,239 

249.226.120.119.99.32.32 

100.111.121 .98.248.247.227 
-2,169.7,133,252 

169.32.133.251 .160.170.177 

251 .32. 47. 198.160. 480. 177 

251.32.47.198.160.190.177 
251 ,32, *17 , 1 98, 1 65,251 ,56 

233.40.133.251 .176.2.198 

252.201 ,56,208,220,76,1 60 

198.201 .160.240.19.201 .32 
240,37,162,1 ,232,221 ,142 

198.208.250.202. 189.1 42.198 

145.251 .96.152.24.105.40 

168.177.251 .201 .32.240.1 

96.152.56.233.40.168.169 

228.145.251 .96.165.251 .201 

32.240.22.152.24.105.40 

168.177.251.201 .160.240.1 

96.152.56.233.40.168.169 
100,1 45,251 ,96,152,56,233 
120,168,177,251,201,99,240 
1 ,96,1 52,24,1 05,1 20,1 68 

169.100.145.251 .96.32.99 


50940 DATA 
50950 DATA 
50960 DATA 
50970 DATA 
50980 DATA 
50990 DATA 
51000 DATA 
51010 DATA 
51020 DATA 
51030 DATA 
51040 DATA 
51050 DATA 
51060 DATA 
51070 DATA 
51080 DATA 
51090 DATA 
51100 DATA 
51110 DATA 
51120 DATA 
51130 DATA 
51140 DATA 
51150 DATA 
51160 DATA 
51170 DATA 
51180 DATA 
51190 DATA 
51200 DATA 
51210 DATA 
51220 DATA 
51230 DATA 
51240 DATA 
51250 DATA 
51260 DATA 
51270 DATA 
51280 DATA 
51290 DATA 
51300 DATA 
51310 DATA 
51320 DATA 
51330 DATA 
51340 DATA 
51350 DATA 
51360 DATA 
51370 DATA 
51380 DATA 
51390 DATA 
51400 DATA 
51410 DATA 
51420 DATA 
51430 DATA 
51440 DATA 
51450 DATA 
51460 DATA 
51470 DATA 


119.120,226,249,239,228,160 
160,227,247,248,98,121 ,111 

100.32.173.0. 220.72.41 

1 5,201 ,1 5,240,8,1 69,1 29 
1 41 ,4,21 2,76,1 83.1 98,1 69 
128,141,4,212,104,41,16 
205,255,207,240,48,141 ,255 
207,201 ,16,208,24,169,2 
1 41 ,15,1 95,1 69,1 ,1 41 ,252 

198.141 .229.200.169.0. 141 

250.207.141 .224.207.76.239 
1 98,1 69,1 , 1 4 1 ,1 5,1 95,1 69 

2. 1 41 ,252 , 1 98 , 1 41 ,229,200 

169.0. 133.2.32.245.198 
76,32,200,238,250,207,173 
250,207,201 , 1 ,240, 1 ,96 

169.0. 141 .250.207.173.0 
220,141 ,254,207,41 ,1 ,208 

13.173.253.207.201.253.240 
23,206,253,207,76,45,199 
173,254 ,207,41 ,2,208,10 

1 73,253,207,201 ,3,240,3 

238.253.207. 173.254.207.41 

8.208.13.173.252.207.201 
3,240,23,238,252,207,76 
82,199,173,254,207,41 ,4 

208.10. 173.252.207.201 ,25’3 
240,3,206,252,207,173,254 

207.41 ,3,201 ,3,208,1 6 
173.253,207,240,11 ,16,6 

238,253,207,76, 107,199,206 
253,207,173,254,207,41 ,12 

201 .12.208.16.173.252.207 

240. 1 1,1 6,6,238,252,207 
76,132,199,206,252,207,174 

249.207.208.32. 174.240.207 

224.60.176.25.173.253.207 
24,109,1 ,208,201 ,80,176 

5.169.244.76.191 .199.201 
244,144,27,169,80,76,191 

199.173.253.207.24.109.1 

208.201 ,41 ,176,5,169,244 

76.1 91 ,1 99,201 ,244,1 44,2 
1 69,41 ,1 41 , 1 ,208,1 73,252 

207.48.32.24.109.0. 208 
141,240,207,173,249,207,105 
0,141 ,249,207,201 ,1 ,208 
42,173,240,207,201 ,55,144 
35,32,155,200,76,4,200 

24.109.0. 208.1 41 ,240,207 
173,249,207,105,255,141 ,249 

207.208.12.173.240.207.201 

25.176.5.169.25.141 .240 

207.173.240.207.141 .0. 208 


— 

51480 DATA 173,16,208,41,254,13.249 
51490 DATA 207,141,16,208,173,31,208 
51500 DATA 41,1,240,3,76,101,200 
51510 DATA 96,162,5,189,119,4,201 
51520 DATA 57,240,6,254,119,4,76 
51530 DATA 58,200,169,48,157,119,4 
51540 DATA 202,208,235,76,58,200,162 
51550 DATA 5,189,39,4,201,48,240 
51560 DATA 6,222,39,4,76,222,200 
51570 DATA 169,57,157,39,4,202,208 
51580 DATA 235,120,169,234,141,21,3 
51590 DATA 169,49,141,20,3,88,169 
51600 DATA 255,133,2,76,222,200,0 
51610 DATA 162,0,160,240,238,32,208 
51620 DATA 232,208,250,200,208,247,169 
51630 DATA 0,141,32,208,162,3,189 
51640 DATA 39,4,201,48,240,4,222 
51650 DATA 39,4,96,169,57,157,39 
51660 DATA 4,202,208,237,162,5,169 
51670 DATA 48,157,39,4,202,208,250 
51680 DATA 104,104,76,81,200,160,15 
51690 DATA 162,3,189,39,4,201,57 
51700 DATA 240,6,254,39,4,76,180 
51710 DATA 200,169,48,157,39,4,202 
51720 DATA 208,235,136,208,230,169,0 
51730 DATA 141,249,207,169,25,141,240 
51740 DATA 207,169,148,141,1,208,172 
51750 DATA 156,200,192,9,240,4,136 
51760 DATA 140,156,200,173,5,4,201 
51770 DATA 160,208,5.169,227,141,5 
51780 DATA 4,96,238,224,207,173.224 
51790 DATA 207.201,1,240,3,76,124 
51800 DATA 201,169,0,141,224,207,173 
51810 DATA 27,212,201,7,176,25,168 
51820 DATA 185,0,207,201,20,208,8 
51830 DATA 169,1,153,16,207,76,16 
51840 DATA 201,201,255,208,5,169,255 
51850 DATA .153,16,207,160,6,185,0 
51860 DATA 207,24,121,16,207,153,0 
51870 DATA 207,72,152,10.170,104,157 
51880 DATA 1,208,136,208,235,160,6 
51890 DATA 185,0,207,201,20,240,10 
51900 DATA 201,255,240,6,136,208,242 
51910 DATA 76,66,201,169,0,153.16 
51920 DATA 207,76,52,201,173,30,208 
51930 DATA 41,1,240,51,162,0,160 
51940 DATA 240,238,32,208,232,208,250 
51950 DATA 200,208,247,169,0,141,32 
51960 DATA 208,162,3.189,39,4,201 
51970 DATA 48,240,6,222,39,4,76 
51980 DATA 49,234,169,57,157,39,4 
51990 DATA 202,208,235,162,5,169,48 
52000 DATA 157,39,4,202,208,250,76 
52010 DATA 49,234,256 


DIAMANTI 


In questo simpatico e velo- 
cissimo gioco dovrete cerca- 
re di raccogliere dei diaman- 
ti che si staccano dalla pare- 
te superiore di una miniera 
con le vostre palette, prima 
che cadano in terra e venga- 
no irrimediabilmente per- 
duti. 


Le istruzioni per il gioco so- 
no contenute nel program- 
ma, insieme alle opzioni di 
scelta della velocità di gioco 
e larghezza delle palette. 
Buon divertimento. 

Tratto dall’archivio 
della Jackson 


— 

5 POKE 53280, 12:P0KE5328l ,0 
7 IF PEEK(491 52)01 20THENGOSUB49000 

9 SYS U97^5 

10 PRINT" ( CLR ) (WHITE) "TAB( 1 3) "DIAMOND DR 
OP" 

20 P R I N T " { 5 CUR.GIU) { YELLOW) (3 SPCJPREND 
I I DIAMANTI PRIMA CHE ESSI" 

30 PRINT"{CUR,CIU) (3 SPCJTOCCHINO IL TER 
RENO. HAI CINQUE" 

i)0 PRINT"(CUR.GIU) (3 SPC ) POSS I B I L IT A ' " 

45 PR I NT " { 2 CUR.CIU) (WHITE) { 1 3 SPCJL - M 
UOVE SIN" 

46 PRINT" {13 SPC); - MUOVE DES (YELLOW)" 
50 PRI NT " { 5 CUR.CIU) { LT . GREEN) (6 SPCJIRV 

S ON ) PREMI UN TASTO PER INIZIARE" 

60 GETA$:IFA$-""THEN60 
65 GOSUB 1000 

70 PRINT"(CLR)PUNTI: 00000(4 SPCJCHANCHE 
S: (4 SH Q) " 


— 

71 SPEED - 532*11 

72 PADDLES-12»4096+4095 

73 FLAG-12*4096+4094 : POKE FLAG.O 
7** WIDTH - 12*4096+15*256+15*16+11 

75 POKE PADDLES.6 : POKE WIDTH, W : POKE 
SPEED, 10-S 

78 ROW ( 6 ) -8 1 :ROW(5)-8l : ROW ( ** ) -207 : ROW ( 3 ) 
-2O7:ROW(2)-90:ROW(1 )-90 
80 PRINT" { YELLOW } { RVS ON } " ; : FOR I - 1 T038 : 
PRINT" {SH Z } " ; :NEXT:PRINT"{RVS OFF} " 

85 PRINT" { YELLOW } { RVS ON } " ; : FOR I - 1 TO 38 : 
PRINT" ( SH Z}"; :NEXT:PRINT"(RVS OFF) " 

90 PRINT" {CYAN}{RVS ON } " ; : FORI- 1 T038 : PR 
I NT " { SH P}"; : NEXT:PRINT"{RVS OFF} "; 

95 PRINT" { C YAN } (RVS ON } " ; : FORI- 1 T038 : PR 
INT" {SH P}"; :NEXT :PRINT"{RVS OFF} 

100 PRINT" {RVS OFF} {LT. BLUE}"; :F0RI=1T0 
38 : PR I NT " { SH W } " ; : NEXT : PR I NT " " ; 

102 PRINT" {RVS OFFHLT.BLUE}"; :F0RI-1T0 
38:PRINT"{SH W } " ; :NEXT:PRINT" "; 

105 PRINT" {WH ITE}"; 

109 REM 

110 F0RI-1T017 :PRINT" {*10 SPC}";:NEXT 
120 PRINT" { HOME } " ; 

130 FOR 1-1 98*» TO 2023 : POKE I,2*I8:P0KE 
I+5*(272,10:NEXT 

1*(0 IF PEEK(789X>1 2*1 6THENSYS 12*4096 
150 FOR ROW - 6 TO 1 STEP- 1 : FOR CHAR-1 TO 
38 

155 FOR K-1 TO 6OO-CHAR*1O+(6-ROW)*2O-50 
*(9-PEEK(SPEED) ) :NEXT 
157 IF PEEK(FLAG) THEN 2000 
1 60 P-RND ( 1 ) * 3 8 ♦ 1 

170 IF PEEK(1024+ROW*40+P)-32THEN160 
180 POKE 1024+ROW*40+P,ROW(ROW) 

190 NEXTCHAR 

191 SYS 49745 

192 FORQ-1TO2:P0KE54296 ,O5 : P0KE54277 , 5 : 
P0KE54278, 218 

193 POKE 54273,1 50 : POKE54272 , 1 39 : POKE54 
276,17 

1 94 FORT- 1 T050 : NEXT : POKE54276 .16: FORT- 1 T 
01 0 : NEXT 

195 NEXTQ 

197 IF ROW >1 THENSYS 49691 

200 NEXTROW 

201 FOR K-1 TO 300 : N E XTK 

205 IF PEEK (SPEED ) >2 THEN POKE SPEED, PEE 
K (SPEED )- 1 : POKE P A DDLE , 6 
210 PRINT " {HOME} {CUR. GIU}"; 

220 GOTO 80 
999 END 


1000 

1010 

1015 

1020 


1030 
1 0*40 
2000 


2010 

2020 

2030 

49000 

*1 9005 
*4901 0 
D9020 
49152 
491 60 
49168 
49176 
49184 
49192 
49200 
49208 
4921 6 
49224 
4923 2 
49240 
49248 
49256 
49264 
49272 
49280 
49288 
49296 
49304 
4931 2 
49320 
49328 
49336 
49344 
49352 
49360 
49368 
49376 
49384 
49392 
49400 
49408 


PRI NT" { CLR } (7 SPCJDIFFICOLTA' (3 SPC 
} { 5 CUR.GIU)" 

INPUT" (WH ITE) VELOC . ( 1-9) { YELLOW) {3 

CUR . DES ) 5 { 3 CUR.SIN}" ;S 

IF S>9 OR S<1 THEN 1010 

INPUT" { 3 CUR.GIU} (WHITE)LARGH. {3 SP 

CJPALETTE ( 1 “9 ) C YELLOW } { 3 CUR . DES ) 4 

{3 CUR.SIN) ";W 

IF W>9 OR W<1 THEN 1020 

RETURN 

PRI NT" { HOME ) ( 10 CUR.GIU) { YELLOW )GAM 
E OVER - PREMI SPAZIO PER CONTINUAR 
E" 

POKE 198,0 

GETA$: IFA$<>" "THEN2020 
RUN 65 

PRINT" (WHITE) {CLR SCARICO IL LINGUA 
GGIO MACCHINA. . ." 

I-.49152 

READ A : I F A-256 THEN RETURN 
POKE I , A : I»I ♦ 1 : GOTO 4901 0 
DATA 120,169,192,141,21,3,169 
DATA 29,141 ,20,3,88,169,18 
DATA 141,253,207,169,0,141,250 
DATA 207,141,247,207,141,248,207 
DATA 96,173.255,207,141,252,207 
DATA 172,253.207.169,32,153,151 
DATA 7.200,169,160,174,251,207 
DATA 153.151,7,200,202,208,249 
DATA 169,32,153,151,7,206,252 
DATA 207,208,3,76,3,193,172 
DATA 253.207,169,32,153.71.7 
DATA 200,169,160,174,251,207,153 
DATA 71,7.200,202,208,249,169 
DATA 32,153.71,7,200,206,252 
DATA 207,208.3,76,3,193,172 
DATA 253.207,169,32,153.247,6 
DATA 200,169,160,174,251,207,153 
DATA 247,6,200,202,208,249,169 
DATA 32,153,247,6,200,206,252 
DATA 207,240,123.172,253,207,169 
DATA 32,153,167,6,200,169,160 
DATA 174,251,207,153,167,6,200 
DATA 202,208,249,169,32,153,167 
DATA 6,200,206,252,207,240,91 
DATA 172,253.207,169,32,153,87 
DATA 6,200,169,160,174,251,207 
DATA 153,87,6,200,202,208,249 
DATA 169,32,153,87,6,200,206 
DATA 252,207,240,59,172,253,207 
DATA 169,32,153,7,6,200,169 
DATA 160,174,251,207,153,7,6 
DATA 200,202,208,249,169,32,153 
DATA 7,6,200,206,252,207,240 


« 9*11 6 
49424 
49432 
494 40 
49448 
49456 
49464 
49472 
49480 
49488 
49496 
49504 
4951 2 
49520 
49528 
49536 
49544 
49552 
49560 
49568 
49576 
49584 
49592 
49600 
49608 
4961 6 
49624 
49632 
49640 
49648 
49656 
49664 
49672 
49680 
49688 
49696 
49704 
4971 2 
49720 
49728 
49736 
49744 
49752 
49760 
49768 
49776 
49784 
49792 
49800 
49808 
4981 6 
49824 
49832 
49840 


DATA 27.172.253,207.169.32.153 
DATA 183.5,200,169,160,174,251 
DATA 207.153.183.5,200.202,208 
DATA 249,169,32,153.183,5,200 
DATA 165,197,201,42,208,13,173 
DATA 253,207.201,1,240.24,206 
DATA 253.207,76,40,193.201,50 
DATA 208,14,173,253,207,24,109 
DATA 251.207,201,39,240,3.238 
DATA 253.207,238,250,207.173,250 
DATA 207.205.249,207,240,3.76 
DATA 49,234,169,0,141,250,207 
DATA 169,112,133.251,169,7,133 
DATA 252,160,0,185,152,7,41 
DATA 127,201,32,208,74,200,192 
DATA 39.208,242,160,0,177.251 
DATA 201,81,240,37,201,207.240 
DATA 33.201,90,240,29.200.192 
DATA 40,208,237.56,165,251 .233’ 
DATA 40,133.251,176,2,198.252 
DATA 166,251,208,220,166,252,224 
DATA 4,208,214,76,49,234, 

DATA 152,24,105,40,168,138,145 
DATA 251,152,56,233,40.168,169 
DATA 32,145.251,32,251,193,76 
DATA 99,193.169.32,153,152,7 
DATA 32,81,194,169,15,141,24 
DATA 212,169,17,141.5,212,169 
DATA 213,141 ,6,212,169,2,141 
DATA 3,212,169,100,141 ,2,212 
DATA 169,5,141 ,1 ,212,169,135 
DATA 141,0.212,169,65,141,4 
DATA 212,160,0,162,0,142,32 
DATA 208,232,208,250,200,208,247 
DATA 169,12,141,32,208,169,64 
DATA 141,4,212,160,39,185,0 
DATA 4,201,81,240,11,136,208 
DATA 246,169,1,141,254,207.76 
DATA 49,23**, 169.32. 1 53.0,4 
DATA 76,49,234,152,72,160,10 
DATA 185,0,4,201,57,208.9 
DATA 169,48,153.0,4,136,76 
DATA 255,193,185,0,4,24,105 
DATA 1,153.0,4,104,168,96 
DATA 174,255,207,202,142,255,207 
DATA 232,169,152,133,251.169,7 
DATA 133,252,56,165,251,233,80 
DATA 133.251,176,2,198,252,202 
DATA 208,242,160,0,177,251,201 
DATA 160,240,4,200,76,59,194 
DATA 174,251,207,169,32,145,251 
DATA 200,202,208,250,96,160,0 
DATA 152,153,0,212,200,192.9 
DATA 208,248,96,256 


SERPENTONE 


In “Serpentone” il vostro o- 
biettivo è quello di muovere 
il serpente fuori da un giar- 
dino infestato da funghi ve- 
lenosi. Ci saranno approssi- 
mativamente 150 di questi 
funghi sullo schermo dopo 
che avrete scelto il livello di 
difficoltà del gioco. Il sepen- 
te apparirà nell’angolo su- 
periore sinistro dello scher- 
mo dopo che saranno stati 
posizionati tutti i funghi ve- 
lenosi. Dovrete cercare di 
far fuggire il serpente (che 
man mano si allunga con il 
movimento) attraverso la 
porta di colore blu che com- 
pare nell’angolo inferiore 
destro dello schermo, rima- 
nendo nei limiti di tempo 
fissato all’inizio del gioco 
attraverso la scelta del livel- 
lo di difficoltà. 

Il serpente dovrà raggiunge- 
re l’uscita senza entrare in 
contatto con alcuno dei fun- 
ghi velenosi, senza cozzare 
contro se stesso e senza ec- 
cedere dal limite di tempo 


precedentemente seleziona- 
to; se riuscirete a fargli rag- 
giungere l’uscita sano e sal- 
vo, vi verrà assegnato un bo- 
nus in aggiunta al punteg- 
gio ottenuto. Come detto, il 
serpente cresce in lunghez- 
za man mano che si muove 
sullo schermo: ogni sezione 
del corpo (pallino colorato) 
in più vi frutterà un punto. 
Se andrete a finire contro 
un fungo velenoso oppure 
contro il vostro stesso cor- 
po, apparirà al centro dello 
schermo una croce, e sarà 
visualizzato il vostro pun- 
teggio al numero di serpenti 
che avete ancora disponi- 
bili. 

Potete fermare il movimen- 
to del serpente quando vole- 
te, semplicemente togliendo 
il dito dal tasto che state 
premendo, ma ricordatevi 
che ciò vi costa una perdita 
del tempo disponibile... 

Tratto da 

“Paper Soft” n. 9/’84 


5 GOTO 1 00 

10 P0KE54296 , 15 :POKE54277, 1 7 :P0KE542 
78. 17 

15 POKE 54276, 17 :POKE 54273. 28 :P0KE5 
4272, 49 

20 POKE54276,0:POKE54273,O:POKE 54272,0 

30 RETURN 

100 SO» 0 : S R = 3 

110 GOSUB30000:GOSUB29000 

120 PRINT'MCLR)" 

1 30 GOSUB28000:G0SUB8000:GOSUB9000:GOSUB 
28000 

1 40 TI$=" 000000" 

150 CL= INT ( RN D ( 1 )*7)+1 : IFCL=50RCL=3THEN 1 
50 

1 60 IFTI$=L$THENGOSUB7000:GOT01 30 
170 IFDH-OTHENPOKEB.HC 
180 POKEB,HC:POKECO,CL 
190 K=PEEK (197) 

200 IFK-34THENDR=-1 :GOT0250:REM LEFT 
210 IFK=37THENDR=1 :GOTO250:REM R1GHT 
220 IFK = 33THENDR = -40: GOTO250 : REM UP 
230 IFK = 36THENDR = 40: GOTO250 : REM DOWN 
240 G0T01 60 

250 P0KEB,BC:B=B+DR:C0=C0 + DR:S0=S0+1 

260 IFPEEK{B)=88THENDH=0:GOT 09500 

270 IFPEEK(B)=1 60THENGOSUB5000 : G0T01 20 

280 IFPEEK(B)=8lTHENGOT09500 

300 IFB<10240RB>2023THENB=B-DR:CO=CO-DR 

310 GOSUB10:G0T0150 

4000 REM ISTRUZIONI 

4010 PRINT"{CLR) { CUR . GIU H BLUE } L ’ OBBIETT 
IVO E 1 GUIDARE IL SERPENTE FUORI DAL 
LO SCHERMO." 

402Ò PRINT" {CUR.GIU} (GREENJCERCA DI EVIT 
ARE I FUNGHI VELENOS I (( BLACK } f SH X} 
{ C Y AN } ) 

4030 P R I N T " { 3 CUR .GIU} ( REDÌTASTI { 3 SPC}: 

PRINT" {PURPLE} J=(RVS ON}SIN.":PR 
INT" { GREEN } K= ( RVS ON } DES . " 

4040 PRINT" {CYAN } I={RVS ON } SU PRINT "{ R 
ED} M= { RVS ON} Gl U ' " 

4050 PRINT" {CUR.GIU} [REDJSCALA VALORI:" 
4060 PRINT" { BLUEJSEGMENTO CORPO={RVS ON } 
1 {RVS OFF} PUNTO" 

4070 PRI NT" { 2 CUR . G I U } { RED } RI CE V ER A I UN 
BONUS ALL'USCITA DAL QUADRO" 

4080 P R I N T " { 3 CUR.GIU} {PURPLE} {RVS ON } { 8 
CUR . DES } PREMI UN TASTO PER INIZIAR 
E" 

4090 GETA$:IFA$=""THEN4090 
4100 RETURN 

50 00 VB = 0 : P0KE53280 , 3 : POKE53281 ,1 
5010 IFS=1THENVB=20 
5020 IFS=2THENVB=30 
5030 IFS=3THENVB-40 


— 

5035 IFS-4THENVB-50 
5040 BN-FNSC(VB) 

5050 PRINT’MCLR) {6 CUR . GIU ) (8 CUR.DESHB 
LUE} . . .SEI USCITO! 

5060 SO-SO-BN 

5070 PRINT"{2 CUR .GIU} { 1 5 CUR . DES } ( RED} ( 

RVS ON ) BONUS { RVS OFF):fRVS ONUBLUE 
} ” BN ” { RVS OFF}” 

5080 PRINT" 1 2 CUR .GIU} { 1 5 CUR.DESHRVS 0 
N} (PURPLE}PUNTI{RVS OFF}:{RVS 0N)1G 
REEN } "SO 

5090 PRI NT " { 2 CUR .GIU} 18 CUR . DES }( BLUE ) ” 
SR" 1 RED )SERPENTI RIMASTI" 

5100 P0KE54296, 15 :POKE54277. 83 :P0KE5 
4278, 50 

5102 FORHI-33TO 57STEP2:L0-INT(RND(0)»50 
) ♦ 1 80 

5103 POKE 54276 , 1 7 :FORJ*=1T060 : NEXTJ : POKE 

54273, HI :POKE54272,LO:NEXT 
5106 FORT - 1 TO 200 : NEXT : P0KE54 276 , 0 : POKE 
54273, 0:P0KE54272,0 
5120 DH-2 : RETURN 

6000 PRINT" 1 CLR } { 1 0 CUR.GIU}{12 CUR. DES} 
{BLUE} {13 SH V}" 

6003 PRINT" { 1 2 CUR . DES }{ BLUE } {SH V ) {RVS 
ON } { C YA N } { 1 1 CUR . DES } { RVS OFF } { BLUE 
} { SH V}" 

6005 PRINT" { 12 CUR . DES } { 1 3 SH V)" 

6010 PRINT" {HOME} { 11 CUR.GIU}{13 CUR. DES 
} {RVS ON} {BLACK} GAME" 

6020 POKE54296, 15 :POKE54277, 53 :P0KE5 
4278. 69 

6021 POKE 54276, 33 :P0KE 54273. 3 :POKE 
54272, 244 

6022 FORT ■ 1 TO 900 : NEXT : POKE54276 , 0 : POKE 
54273, 0:P0KE54272,0 

6025 P0KE36874,150:PRINT"{ HOME } { 1 1 CUR.G 
IU } { 1 8 CUR . DES } { RVS ON } { BLACK } OVER 

6026 POKE54296, 15 :POKE54277, 53 :P0KE5 
4278, 69 

6027 POKE 54276, 33 :P0KE 54273. 2 :POKE 
54272, 163 

6028 FORT - 1 TO 900 : NEXT : POKE54276 , 0 : POKE 
54273, 0.-P0KE54272.0 

6040 PRINT" {3 CUR .GIU} {12 CUR . DES } { RED } G 
IOCHI ANCORA?" 

6050 GETP$:IFP$-""THEN6050 

6060 IFP$-"S"THENS0-0:SR«3:LK«O:GOTO1 20 

6070 IFP$O"N"THEN6050 

6080 PR I NT " { 3 CUR . GIU } {17 CUR . DES ) CI AO ! { 
HOME} " : END 

7000 SR-SR-1 :POKE53280,3:POKE5328l , 1 
7010 PRINT" { CLR } { 6 CUR. GIU} {REDJWOW! SE 


— 

I MORTO DI STANCHEZZA!" 

70 20 PRINTSPC ( 1 4 ) " { 4 CUR. GIU) {GREEN} {SH 
Z}{PURPLE}PUNTI{RVS OFF}:{RVS ON > { G 
REEN } "SO 

7030 PRINTSPC ( 9 ) " { 5 CUR . GIU H RED } "SR" { BL 
UE JSERPENTI RIMASTI" 

7040 POKE54296, 10 :P0KE5«277, 31 :P0KE5 
«278, 17 

70«2 POKE 5 « 2 7 6 , 33 :P0KE 5«273. 5 :POKE 
5«272, 71 

7043 FORVO-1 5T05STEP- .5: POKE54296 , VO :FOR 
T- 1 T01 00 : NEXT : NE XT 

7045 POKE54276 ,0 :POKE5«273 .0: POKE54272 , 0 
:POKE54296,0 




}L{ BLUE}I{ GREEN )V{ PURPLE }E{CYAN}L{B 
LUE } L [ ORANGE }0 {RED}?" 

8050 GETS$:IFS$-""THEN8050 
8060 S« V AL ( S$ ) 

8070 IFS-1THENL$="000100":RETURN 
8080 IFS-2THENL$- "000045": RETURN 
8090 IFS-3THENL$-"000030": RETURN 
8100 IFS-4THENL$-" 00001 5" : RETURN 
81 1 0 GOTO8050 

9000 POKE53280,4:P0KE5328l , 8 : PRINT" { CLR } 

9010 FORF-1T0150:D-INT(RND(1 ) *966) +1058 
9020 POKED , 88 : POKED + 54272 , 1 :F0RJ-1 T020: 

NEXTJ : POKED+54272 ,0 :NEXTF 
9030 P0KE2023.1 60 : POKE2022 , 1 60: POKE 1983, 
1 60 : P0KE1 982 , 1 60 

9040 POKE56295,6:POKE56294,6:POKE56255.6 
: P0KE56254 , 6 

9050 P0KE1943,32:P0KE2021 ,32 
9060 RETURN 

9500 POKE54296, 15 :POKE5«277, 53 :P0KE5 
4278, 69 

9505 POKE 54276, 33 :POKE 54273, 5 :POKE 
54272, 71 


7060 IFSR-0THEN6O00 
7070 RETURN 

8000 POKE53280,4:POKE53281 , 1 : PRINT" { CLR } 
(3 CUR.GIU}"SPC(42)"{RED}SCEGLI IL 
LIVELLO:" 

8005 PRINT" {2 SPC } { 1 7 CBM T}" 

8010 PRINTSPC (51 )" {CUR. GIU} { BLUE} LIVELLO 
1-60 SECONDI" 

8020 PRINTSPC(51 )"{ RED } LI VELLO 2-45 SECO 
NDI" 

8030 PRINTSPC(51 )"{ GREEN } LI VELLO 3-30 SE 
CONDÌ" 

8040 PRINTSPC(51 )" {PURPLEJLIVELLO 4-15 S 
ECONDI" 

8045 PRINT" { 3 CUR . Gl U } {7 CUR . DES } { YELLOW 


— 

9510 FORT» 1 TO 900 :NE XT:POKE 5*1276, 0 : POKE 
5*1273, 0:P0KE5*1272,0 

9515 P0KE5H296, 15 :P0KE5«277, 53 :P0KE5 
4278, 69 

9520 POKE 54276. 33 :P0KE 54273. 3 :POKE 
54272, 244 

9525 FORT -ITO 900 : NEXT : P0KE54276 , 0 : POKE 
54273. 0:POKE54272,0 

9530 POKE54296, 15 :P0KE54277, 53 :P0KE5 
4278, 69 

9533 POKE 54276, 33 :POKE 54273. 2 :POKE 
54272, 163 

9536 FORT» 1 TO 900 : NEXT : POKE54276 , 0 : POKE 
54273. 0:POKE54272,0 

9540 SR-SR-1 

9550 PRINT" { HOME I { 1 0 CUR . Gl U } "SPC ( 1 8 ) " { R 
VS 0N) (WHITE) (CUR.DES) (CUR.DES)"SP 
C(37)"RIP"SPC(37)" {CUR. DESI (CUR. DE 
S} "SPC (37)" (CUR. DES) (CUR.DES) (RVS 
OFF)" 

9560 F0RT-1T01000:NEXTT 

9570 POKE53280.3:POKE53281 ,1 :PRINT"(CLR) 

(5 CUR. GIU)" 

9580 PRINTSPC(14)"(RED)PESSIM0! !" 

9590 PRINT"(4 CUR . GIU ) (14 CUR.DES)(RVS 0 
N) (BLUE)PUNTI(RVS OFF):{RVS ON)(PUR 
PLE ) "SO" ( RVS OFF)" 

9600 PR I NTSPC ( 8 ) " { 4 CUR . GIU) { GREEN ) "SR " { 
BLUE JSERPENTI RIMASTI" 

9610 F0RT«1T02000:NEXTT:IFSR=0THEN6000 

9620 GOT0 1 20 

1 0000 POKEV ,15: P0KES3 . 21 7 : P0KES3, 21 7 : POK 
EV.O:POKES3.0:RETURN 

28000 BC-81 :HC»87:B=1024:S3“36876:CO»552 
96 : LK»0 : RETURN 

29000 DEFFNA(L)-INT(RND(1 )»L)+106 
29010 DEFFNSC(L)-INT(RND( 1 )« L ) *5 : RETURN 
30000 POKE53280, 3:P0KE53281 . 1 
30010 PR I NT" ( CLR ) (8 CUR.GIU)(11 CUR.DES) 
(RVS ON } ( RED ) { 1 7 SPC}" 

30020 PRINT" { 1 1 CUR . DES ) { RVS ON ) { RED ) (G 
REEN) (15 SPC) (RED) " 

30030 PR I NT" ( 1 1 CUR. DES ) ( RVS ON ) ( RED ) (G 
REEN } (2 SPC}SERPENTONE( 3 SPC)(RED) 
(RVS ON) " 

30040 P R I N T " ( 1 1 CUR . DES ) ( RVS ON)(RED) (G 
REEN |(15 SPCKRED) " 

30050 PRINT "(11 CUR . DES } ( RVS ON) {RED} {17 
SPC)" 

30070 PRINT" { 2 CUR . GIU } { 1 2 CUR . DES }( BLUE 
) ISTRU ZI ON I ? " 

30080 GETI$ : IFI$-""THEN30080 

30090 IFI$-"S"THENGOSUB4000: GOTO 30 1 20 

30100 IFI$-"N"THEN301 20 



31 




32 
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